#劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅
# 搤惎幃斈梡愴摤傾僯儊丒僒僽儖乕僠儞曇
#劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅
# 惢嶌      搤惎
# 嵟廔峏怴  2006/07/09
#劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅
# 僒僽儖乕僠儞 _L-RChecker
#
# 憡庤儐僯僢僩偑懳徾儐僯僢僩偺嵍塃偳偪傜偵偄傞偐挷傋丄塃偵偄偨応崌乽忋壓斀揮乿傪曉偡丅
# 夋憸斀揮梡偺儖乕僠儞丅

_L-RChecker:
If X(懳徾儐僯僢僩俬俢) < X(憡庤儐僯僢僩俬俢) Then
  Return 忋壓斀揮
Else
  Return
EndIf
Return

#劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅
# 僒僽儖乕僠儞 _DirectionChecker
#
# 倃幉丄倄幉偵偮偄偰丄偦傟偧傟憡庤儐僯僢僩偑懳徾儐僯僢僩偺偳偪傜懁偵偄傞偐挷傋傞丅
# 懳徾儐僯僢僩偺嵗昗偑憡庤儐僯僢僩傛傝戝偒偗傟偽1丄彫偝偗傟偽-1傪曉偟丄
# 摨偠応崌偵偼0傪曉偡丅
#
# 忋婰_L-RChecker偑夋憸斀揮梡側偺偵懳偟丄偙偪傜偼夋憸偺埵抲廋惓偵棙梡丅

_DirectionChecker:
If Args(1) = 倃 Then
  If X(懳徾儐僯僢僩俬俢) > X(憡庤儐僯僢僩俬俢) Then
    Return 1
  ElseIf X(懳徾儐僯僢僩俬俢) < X(憡庤儐僯僢僩俬俢) Then
    Return -1
  ElseIf X(懳徾儐僯僢僩俬俢) = X(憡庤儐僯僢僩俬俢) Then
    Return 0
  EndIf
ElseIf Args(1) = 倄 Then
  If Y(懳徾儐僯僢僩俬俢) > Y(憡庤儐僯僢僩俬俢) Then
    Return 1
  ElseIf Y(懳徾儐僯僢僩俬俢) < Y(憡庤儐僯僢僩俬俢) Then
    Return -1
  ElseIf Y(懳徾儐僯僢僩俬俢) = Y(憡庤儐僯僢僩俬俢) Then
    Return 0
  EndIf
EndIf
Return

#劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅
# 僒僽儖乕僠儞 _SelectAorB
#
# 擇幰戰堦儖乕僠儞丅
# 堷悢俀偑懚嵼偡傟偽偦偪傜傪桪愭丅側偗傟偽堷悢侾傪偦偺傑傑曉偡丅
# 偨偩偟堷悢俁偑懚嵼偡傞応崌偼丄堷悢俀偵偦偺撪梕偑娷傑傟偰偄側偗傟偽堷悢侾傪曉偡丅
# (幆暿巕偺妋擣側偳偵棙梡壜)

_SelectAorB:
If Args(3) = "" Or Args(3) = "-" Then
  If Args(2) = "" Or Args(2) = "-" Then
    Return Args(1)
  Else
    Return Args(2)
  EndIf
Else
  If InStr(Args(2), Args(3)) = 0 Then
    Return Args(1)
  Else
    Return Args(2)
  EndIf
EndIf
Return

#劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅劅
# 僒僽儖乕僠儞 _BeamColorSelect
#
# animation.txt偱巜掕偟偨價乕儉偺怓傪丄幚嵺偺夋憸偺僗儁儖偵捈偡丅
# 斈梡愴摤傾僯儊偵傕帡偨傛偆側儖乕僠儞偼懚嵼偡傞偼偢偱偡偑丄帺嶌丅
#
# 堷悢侾偑懚嵼偡傟偽偦偪傜傪桪愭丅側偗傟偽僨僼僅儖僩僇儔乕偺僺儞僋傪曉偡丅

_BeamColorSelect:
If Args(1) = "" Or Args(1) = "-" Then
  Return "(Pink)"
EndIf
Switch Args(1)
Case 儗僢僪 愒 愒怓 Red red RED 俼倕倓 倰倕倓 俼俤俢
  Return "(Red)"
Case 僽儖乕 惵 惵怓 Blue blue BLUE 俛倢倳倕 倐倢倳倕 俛俴倀俤
  Return "(Blue)"
Case 僀僄儘乕 墿 墿怓 Yellow yellow YELLOW 倄倕倢倢倧倵 倷倕倢倢倧倵 倄俤俴俴俷倂
  Return "(Yellow)"
Case 僌儕乕儞 椢 椢怓 Green green GREEN 俧倰倕倕値 倗倰倕倕値 俧俼俤俤俶
  Return "(Green)"
Case 僽儔僢僋 崟 崟怓 Black black BLACK 俛倢倎們倠 倐倢倎們倠 俛俴俙俠俲
  Return "(Black)"
Case 儂儚僀僩 敀 敀怓 White white WHITE 倂倛倝倲倕 倵倛倝倲倕 倂俫俬俿俤
  Return "(White)"
Case 僆儗儞僕 烌 烌怓 偩偄偩偄 偩偄偩偄怓 Orange orange ORANGE 俷倰倎値倗倕 倧倰倎値倗倕 俷俼俙俶俧俤
  Return "(Orange)"
#Case 僺儞僋 搷 搷怓 Pink pink PINK 俹倝値倠 倫倝値倠 俹俬俶俲
Case Else
  Return "(Pink)"
EndSw
Return

<Lib\BattleAnime_Ttype(Pre).eve>
<Lib\BattleAnime_Ttype(Attack).eve>
<Lib\BattleAnime_Ttype(Hit).eve>
